home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
language
/
parallax
/
ibm_pc_o.exe
/
SAMPLES
/
FIND.P
< prev
next >
Wrap
Text File
|
1992-11-06
|
855b
|
38 lines
SYSTEM FindMax;
CONST size=3;
CONFIGURATION field[size],[size];
CONNECTION right: field[i,j] -> field[i, j+1].left;
left : field[i,j] -> field[i, j-1].right;
up : field[i,j] -> field[i+1, j].down;
down : field[i,j] -> field[i-1, j].up;
SCALAR i : INTEGER;
VECTOR value,
buffer : INTEGER;
BEGIN
PARALLEL
value := id_no
ENDPARALLEL;
FOR i := 1 TO size-1 DO
PARALLEL
buffer := value;
PROPAGATE.left(buffer);
IF buffer > value THEN value := buffer END;
ENDPARALLEL
END ; (* FOR *)
FOR i := 1 TO size-1 DO
PARALLEL
buffer := value;
PROPAGATE.down(buffer);
IF buffer > value THEN value := buffer END;
ENDPARALLEL
END ; (* FOR *)
STORE [0],[0] (value, i);
WriteInt(i,10);
END FindMax.